home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt40s5.arc / SENDZMOD.MOD < prev    next >
Text File  |  1987-06-09  |  2KB  |  52 lines
  1. (*----------------------------------------------------------------------*)
  2. (*        Send_Zmodem_File --- Uploads file with Zmodem                 *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Send_Zmodem_File( Transfer_Protocol : Transfer_Type );
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Send_Zmodem_File                                     *)
  10. (*                                                                      *)
  11. (*     Purpose:    Uploads files using Zmodem                           *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Send_Zmodem_File( Transfer_Protocol : Transfer_Type );        *)
  16. (*                                                                      *)
  17. (*----------------------------------------------------------------------*)
  18.  
  19. VAR
  20.    S_Baud_Rate   : STRING[6];
  21.    S_Port        : STRING[3];
  22.    S_BlockSize   : STRING[6];
  23.    Send_Str      : AnyStr;
  24.    Save_Close    : BOOLEAN;
  25.  
  26. BEGIN (* Send_Zmodem_File *)
  27.  
  28.    STR( Baud_Rate:6     , S_Baud_Rate );
  29.    STR( Comm_Port:3     , S_Port      );
  30.  
  31.    IF ( Transfer_Protocol = Zmodem ) THEN
  32.       STR( Zmodem_BlockSize, S_BlockSize )
  33.    ELSE
  34.       S_BlockSize := ' ';
  35.  
  36.    Send_Str := 'SENDZMOD' + S_Port +
  37.                S_Baud_Rate + ' ' +
  38.                DSZ_Send_Names[ Transfer_Protocol ] +
  39.                ' ' + FileName +
  40.                ' ' + S_BlockSize;
  41.  
  42.    Save_Close         := Close_Comm_For_Dos;
  43.    Close_Comm_For_Dos := TRUE;
  44.  
  45.    Write_Log( 'Zmodem invocation: ' + Send_Str, FALSE, FALSE );
  46.  
  47.    DosJump( Send_Str );
  48.  
  49.    Close_Comm_For_Dos := Save_Close;
  50.  
  51. END   (* Send_Zmodem_File *);
  52.